home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / mus / midi / GMPlayer.lha / GMPlayer next >
AmigaDOS Script File  |  1998-01-27  |  493b  |  30 lines
  1. .key start,gm
  2.  
  3. .def start "RAM:" ;The Requester's start directory.
  4. .def gm "GM:"     ;Where GMPlay is.
  5.  
  6. failat 21
  7.  
  8.  
  9. if not exists env:ReqGMdir
  10.     echo >env:ReqGMdir "<start>"
  11. endif
  12.  
  13. lab GMLoop
  14. requestfile >env:ReqGMfile DRAWER $ReqGMdir title "GMPlayer" noicons
  15. if error
  16. skip Ending
  17. endif
  18.  
  19. "<gm>GMPlay" $ReqGMfile verbose poly 64 buf 64
  20. echo $ReqGMfile
  21. echo $ReqGMdir
  22. list >env:ReqGMdir $ReqGMfile lformat "%P"
  23. skip back GMLoop
  24.  
  25.  
  26. lab Ending
  27. echo "*N---- Quit ----*N"
  28. delete >nil: env:ReqGMfile
  29.  
  30.